home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pie_lo11.zip / UPDATE.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-04-21  |  2KB  |  214 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.  
  55. ;------------------------------------------------------------------------------
  56.  
  57.     If (Exist(PPEPath() + "LASTONES.CFG")) Then
  58.         FOpen 1, PPEPath() + "LASTONES.CFG", 2, 3
  59.         FGet 1, STRING006
  60.         FGet 1, STRING007
  61.         FGet 1, STRING010
  62.         FGet 1, STRING008
  63.         FGet 1, STRING009
  64.         FGet 1, STRING011
  65.         FGet 1, STRING012
  66.         FGet 1, STRING013
  67.         FGet 1, STRING014
  68.         FGet 1, STRING015
  69.         FGet 1, STRING016
  70.         FClose 1
  71.         GetUser
  72.         STRING001 = Left(String(U_Name()), 10)
  73.         STRING002 = Left(String(UN_City()), 14)
  74.         STRING003 = Left(String(U_TimeOn()), 3)
  75.         STRING004 = PcbNode()
  76.         STRING005 = Carrier()
  77.         STRING018 = U_Ful()
  78.         STRING020 = U_Fdl()
  79.         STRING025 = U_MsgRd()
  80.         STRING026 = U_MsgWr()
  81.         STRING027 = U_Stat(3)
  82.         STRING028 = U_Stat(2)
  83.         FOpen 1, PPEPath() + "TEMP." + PcbNode(), 2, 3
  84.         FGet 1, STRING017
  85.         FGet 1, STRING019
  86.         FGet 1, STRING021
  87.         FGet 1, STRING022
  88.         FGet 1, STRING023
  89.         FGet 1, STRING024
  90.         FClose 1
  91.         Delete PPEPath() + "TEMP." + PcbNode()
  92.         If (STRING020 > STRING019) Then
  93.             STRING034 = STRING016
  94.             While (STRING018 > STRING017) Do
  95.                 STRING033 = STRING016
  96.                 :LABEL001
  97.                 If (CDOn()) Then
  98.                     STRING035 = STRING016
  99.                     :LABEL002
  100.                     If (STRING025 > STRING021) Then
  101.                         STRING029 = STRING016
  102.                         :LABEL003
  103.                         If (STRING026 > STRING022) Then
  104.                             STRING030 = STRING016
  105.                             :LABEL004
  106.                             If (STRING027 > STRING023) Then
  107.                                 STRING031 = STRING016
  108.                                 While (STRING028 > STRING024) Do
  109.                                     STRING032 = STRING016
  110.                                     :LABEL005
  111.                                     Delete PPEPath() + "ACTION.DAT"
  112.                                     FCreate 1, PPEPath() + "ACTION.DAT", 1, 0
  113.                                     FPutLn 1, STRING029
  114.                                     FPutLn 1, STRING030
  115.                                     FPutLn 1, STRING031
  116.                                     FPutLn 1, STRING032
  117.                                     FPutLn 1, STRING033
  118.                                     FPutLn 1, STRING034
  119.                                     FPutLn 1, STRING035
  120.                                     FClose 1
  121.                                     STRING001 = Replace(STRING001, "I", STRING014)
  122.                                     STRING004 = Replace(STRING004, "0", STRING015)
  123.                                     STRING005 = Replace(STRING005, "0", STRING015)
  124.                                     STRING003 = Replace(STRING003, "0", STRING015)
  125.                                     Delete PPEPath() + "LASTONE.DAT"
  126.                                     FCreate 1, PPEPath() + "LASTONE.DAT", 1, 0
  127.                                     FPutLn 1, STRING001
  128.                                     FPutLn 1, STRING002
  129.                                     FPutLn 1, STRING003
  130.                                     FPutLn 1, STRING004
  131.                                     FPutLn 1, STRING005
  132.                                     FClose 1
  133.                                     End
  134.                                 Endif
  135.                                 Print "A SERIOUS ERROR FOUND!"
  136.                             Endif
  137.                             STRING034 = " "
  138.                         EndWhile
  139.                         STRING033 = " "
  140.                         Goto LABEL001
  141.                     Endif
  142.                     STRING035 = " "
  143.                     Goto LABEL002
  144.                 Endif
  145.                 STRING029 = " "
  146.                 Goto LABEL003
  147.             Endif
  148.             STRING030 = " "
  149.             Goto LABEL004
  150.         Endif
  151.         STRING031 = " "
  152.     EndWhile
  153.     STRING031 = " "
  154.     Goto LABEL005
  155.  
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Usage report (before postprocessing)
  159. ;
  160. ; ■ Statements used :
  161. ;
  162. ;    1       End
  163. ;    16      Goto 
  164. ;    29      Let 
  165. ;    1       Print 
  166. ;    8       If 
  167. ;    2       FCreate 
  168. ;    2       FOpen 
  169. ;    4       FClose 
  170. ;    17      FGet 
  171. ;    12      FPutLn 
  172. ;    1       GetUser
  173. ;    3       Delete 
  174. ;
  175. ;
  176. ; ■ Functions used :
  177. ;
  178. ;    10      +
  179. ;    6       >
  180. ;    8       !
  181. ;    3       Left()
  182. ;    1       U_Name()
  183. ;    1       U_Ful()
  184. ;    1       U_Fdl()
  185. ;    1       U_TimeOn()
  186. ;    4       Replace()
  187. ;    3       String()
  188. ;    8       PPEPath()
  189. ;    1       U_MsgRd()
  190. ;    1       U_MsgWr()
  191. ;    3       PcbNode()
  192. ;    1       UN_City()
  193. ;    1       Exist()
  194. ;    1       Carrier()
  195. ;    1       CDOn()
  196. ;    2       U_Stat()
  197. ;
  198. ;------------------------------------------------------------------------------
  199. ;
  200. ; Analysis flags : No flag
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Postprocessing report
  205. ;
  206. ;    0       For/Next
  207. ;    2       While/EndWhile
  208. ;    6       If/Then or If/Then/Else
  209. ;    0       Select Case
  210. ;
  211. ;------------------------------------------------------------------------------
  212. ;                 AEGiS Corp - Break the routines, code against the machines!
  213. ;------------------------------------------------------------------------------
  214.